﻿Imports System.IO

Public Class FormBorrarUsuario

    Private Sub bt_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
        Me.Hide()
        FormMenuUsuarios.Show()
    End Sub

    Private Sub nt_delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nt_delete.Click
        Try
            Dim temp As New StreamWriter("C:\eleemeTPV\users\temp.txt")
            Dim usuarios As New StreamReader("C:\eleemeTPV\users\FichUsuarios.txt")
            Dim nombre As String
            Dim cod As String
            Do
                nombre = usuarios.ReadLine()
                cod = usuarios.ReadLine()
                If nombre = tb_nombre.Text Then
                    nombre = ""
                    cod = ""
                    temp.Write(nombre)
                    temp.Write(cod)
                Else
                    temp.WriteLine(nombre)
                    temp.WriteLine(cod)
                End If
            Loop Until nombre Is Nothing
            temp.Close()
            usuarios.Close()

            Dim temps As New StreamReader("C:\eleemeTPV\users\temp.txt")
            Dim usuario As New StreamWriter("C:\eleemeTPV\users\FichUsuarios.txt")
            Do
                nombre = temps.ReadLine()
                cod = temps.ReadLine()
                usuario.WriteLine(nombre)
                usuario.WriteLine(cod)
            Loop Until nombre Is Nothing
            temps.Close()
            usuario.Close()

            FormMenuUsuarios.lb_usuarios.Items.Remove(FormMenuUsuarios.lb_usuarios.SelectedItem)

            MsgBox("Se ha eliminado el usuario satisfactoriamente, volviendo al menú de gestión de usuarios")
            Me.Hide()
            FormMenuUsuarios.Show()
        Catch ex As Exception
            MsgBox(Err.Description & " Error número:" & Err.Number)
        End Try
    End Sub

    Private Sub FormBorrarUsuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tb_nombre.Text = FormMenuUsuarios.lb_usuarios.SelectedItem
    End Sub
End Class